(cua--highlight-rectangle): Preserve

existing face when partially highlighting a TAB in a rectangle.

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index d83ebd543cde88d87429400952c1b59e9616515b..35132e60e8df0bb20bdcb0bd66ac6ebbd407439b 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -781,7 +781,7 @@ If command is repeated at same position, delete the rectangle."
                               (make-string
                                (- l cl0 (if (and (= le pl) (/= le lb)) 1 0))
                                (if cua--virtual-edges-debug ?. ?\s))
-                              'face 'default))
+                              'face (or (get-text-property (1- s) 'face) 'default)))
                     (if (/= pl le)
                         (setq s (1- s))))
                   (cond